home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / GIFINF.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.9 KB  |  164 lines
  1. 10 POKE55,.:POKE56,160:CLR:DIMM:Z$=CHR$(.):M$=CHR$(13):D=3
  2. 11 FORI=49152TOI+125:READY:POKEI,Y:NEXT
  3. 12 E$="[197][216][212][197][206][211][201][207][206] [194][204][207][195][203]":SYS49264
  4. 15 PRINT"[147][197][206][212][197][210] [195][207][205][208][204][197][212][197] [198][201][204][197][206][193][205][197] ([196][197][214][201][195][197] 8)."
  5. 20 INPUTF$:PRINT:IFF$=""THENEND
  6. 22 OPEN8,8,8,F$
  7. 25 PRINT"[208][210][197][211][211] [211] [198][207][210] [196][193][212][193] [212][207] [211][195][210][197][197][206]."
  8. 26 PRINT"[208][210][197][211][211] [208] [198][207][210] [196][193][212][193] [212][207] [208][210][201][206][212][197][210] ([196][197][214][201][195][197] 4)."
  9. 27 GETX$:IFX$="P"THEND=4:Q=1:PRINT"[208][210][201][206][212][201][206][199]...":GOTO31
  10. 28 IFX$="S"THEN30
  11. 29 GOTO27
  12. 30 PRINT"[147]"
  13. 31 OPEN4,D,7:POKE56334,.
  14. 32 FORI=1TO3:GET#8,A$:B$=B$+A$:NEXT
  15. 33 IFSTTHEN900
  16. 34 IFB$<>"GIF"THENPRINT#4,"[206][207][212] [193] [199][201][198] [198][201][204][197]":GOTO910
  17. 35 GET#8,Y$:GET#8,A$:Y$=Y$+A$:GET#8,A$:A=ASC(A$+Z$):Y$=Y$+CHR$(A-32)
  18. 36 IFSTTHEN900
  19. 37 PRINT#4,"[199][201][198] [214][197][210][211][201][207][206] ";Y$
  20. 38 GET#8,B$:GET#8,A$:A=ASC(B$+Z$)+256*ASC(A$+Z$)
  21. 39 IFSTTHEN900
  22. 40 PRINT#4:PRINT#4,"[211][195][210][197][197][206] [211][201][218][197] =";A;
  23. 41 GET#8,B$:GET#8,A$:A=ASC(B$+Z$)+256*ASC(A$+Z$):IFSTTHEN900
  24. 42 PRINT#4,"[216]";A
  25. 43 GET#8,A$:A=ASC(A$+Z$):IFA>127THENN=6*2^(AAND7):U=ST
  26. 44 IFNTHENPRINT#4:PRINT#4,"[199][204][207][194][193][204] [195][207][204][207][210] [205][193][208]"
  27. 45 IFUTHEN900
  28. 46 GET#8,A$:P=2*2^(AAND7):C=(AAND112)/16+1:S=AAND8:A=ASC(A$+Z$):U=ST
  29. 47 PRINT#4:PRINT#4,"[195][207][204][207][210] [210][197][211][207][204][213][212][201][207][206] =";C;"[194][201][212][211]"
  30. 48 IFSTHENIFY$="87A"THENPRINT#4:PRINT#4,"[211][207][210][212] [198][204][193][199] [197][210][210][207][210]":GOTO51
  31. 49 IFSTHENPRINT#4:PRINT#4,"[211][207][210][212] [198][204][193][199] [211][197][212]"
  32. 50 IFS=.THENIFY$<>"87A"THENPRINT#4:PRINT#4,"[211][207][210][212] [198][204][193][199] [195][204][197][193][210]"
  33. 51 IFA=>PTHENF=1:PRINT#4:PRINT#4,"[194][193][195][203][199][210][207][213][206][196] [195][207][204][207][210] [197][210][210][207][210]"
  34. 52 IFUTHEN900
  35. 53 GET#8,B$:R=256*A/P:G=R:B=R:A=3*A:IFFTHENA=-3:GOTO60
  36. 54 IFATHENIFNTHENFORI=1TOA:GET#8,A$:NEXT
  37. 55 IFNTHENGET#8,A$:R=ASC(A$+Z$):GET#8,A$:G=ASC(A$+Z$):GET#8,A$:B=ASC(A$+Z$)
  38. 56 PRINT#4:PRINT#4,"[194][193][195][203][199][210][207][213][206][196] [195][207][204][207][210]:"
  39. 57 PRINT#4:PRINT#4,"[210][197][196] =";R;
  40. 58 PRINT#4,", [199][210][197][197][206] =";G;
  41. 59 PRINT#4,", [194][204][213][197] =";B
  42. 60 IFUTHEN900
  43. 61 IFNTHENM=N-A-3:SYS49225:IFSTTHEN900
  44. 63 A=ASC(B$+Z$)
  45. 65 IFATHENIFY$="87A"THENPRINT#4:PRINT#4,"[208][201][216][197][204] [193][211][208][197][195][212] [210][193][212][207] [197][210][210][207][210]":GOTO70
  46. 67 IFA=.THENIFY$="87A"THEN70
  47. 68 IFA=.THENPRINT#4:PRINT#4,"[208][201][216][197][204] [193][211][208][197][195][212] [210][193][212][201][207] = 1"
  48. 69 IFATHENPRINT#4:PRINT#4,"[208][201][216][197][204] [193][211][208][197][195][212] [210][193][212][201][207] =";(A+15)/64
  49. 70 GOSUB800
  50. 72 GET#8,A$:A=ASC(A$+Z$)
  51. 75 IFA=33ANDY$<>"87A"THEN180
  52. 80 IFA=44THEN105
  53. 90 IFA=59THEN400
  54. 95 IFSTTHEN900
  55. 100 GOTO72
  56. 105 IFSTTHEN900
  57. 106 PRINT#4:PRINT#4,"[201][205][193][199][197] [194][204][207][195][203]"
  58. 107 GET#8,B$:GET#8,A$:A=ASC(B$+Z$)+256*ASC(A$+Z$):IFSTTHEN900
  59. 108 PRINT#4:PRINT#4,"[200][207][210][201][218][207][206][212][193][204] [211][212][193][210][212] [207][198] [201][205][193][199][197] =";A
  60. 110 GET#8,B$:GET#8,A$:A=ASC(B$+Z$)+256*ASC(A$+Z$):IFSTTHEN900
  61. 112 PRINT#4:PRINT#4,"[214][197][210][212][201][195][193][204] [211][212][193][210][212] [207][198] [201][205][193][199][197] =";A
  62. 114 GET#8,B$:GET#8,A$:A=ASC(B$+Z$)+256*ASC(A$+Z$):IFSTTHEN900
  63. 116 PRINT#4:PRINT#4,"[201][205][193][199][197] [211][201][218][197] =";A;
  64. 118 GET#8,B$:GET#8,A$:A=ASC(B$+Z$)+256*ASC(A$+Z$):IFSTTHEN900
  65. 120 PRINT#4,"[216]";A
  66. 125 N=.:K=P:GET#8,A$:A=ASC(A$+Z$):IFA>127THENK=2*2^(AAND7):N=3*K
  67. 127 IFSTTHEN900
  68. 130 IFAAND64THENPRINT#4:PRINT#4,"[201][206][212][197][210][204][193][195][197][196] [198][207][210][205][193][212]":GOTO133
  69. 132 PRINT#4:PRINT#4,"[211][197][209][213][197][206][212][201][193][204] [198][207][210][205][193][212]"
  70. 133 PRINT#4:PRINT#4,"[206][213][205][194][197][210] [207][198] [195][207][204][207][210][211] =";K
  71. 135 IFNTHENM=N:SYS49225:IFSTTHEN900
  72. 137 GET#8,A$:U=ST:IF2^ASC(A$+Z$)<>KTHENPRINT#4:PRINT#4,"[210][207][207][212] [211][201][218][197] [197][210][210][207][210]"
  73. 140 M=1:IFUTHEN900
  74. 150 PRINT#4:PRINT#4,"[207][206][197] [205][207][205][197][206][212] [208][204][197][193][211][197]..."
  75. 152 SYS49152:IFSTTHEN900
  76. 153 GOTO160
  77. 155 SYS49162:IFSTTHEN900
  78. 160 PRINT#4:PRINT#4,M;"[196][193][212][193] [194][217][212][197][211]":GOTO70
  79. 180 IFSTTHEN900
  80. 182 M=.:GET#8,A$:A=ASC(A$+Z$):IFSTTHEN900
  81. 183 PRINT#4
  82. 185 IFA=1THENPRINT#4,"[208][204][193][201][206] [212][197][216][212] ";E$:GOTO200
  83. 190 IFA=249THENPRINT#4,"[199][210][193][208][200][201][195] [195][207][206][212][210][207][204] ";E$:GOTO300
  84. 192 IFA=254THENPRINT#4,"[195][207][205][205][197][206][212] ";E$:GOTO150
  85. 195 IFA=255THENPRINT#4,"[193][208][208][204][201][195][193][212][201][207][206] ";E$:GOTO150
  86. 197 IFY$="89A"THENPRINT#4,E$;" [197][210][210][207][210]":GOTO150
  87. 198 PRINT#4,"[208][207][211][211][201][194][204][197] ";E$;" [197][210][210][207][210]"
  88. 199 GOTO150
  89. 200 SYS49178:IFSTTHEN900
  90. 201 PRINT#4
  91. 202 IFPEEK(780)<>12THENPRINT#4,"[207][206][197] [205][207][205][197][206][212] [208][204][197][193][211][197]...":M=1:GOTO155
  92. 205 GET#8,B$:GET#8,A$:A=ASC(B$+Z$)+256*ASC(A$+Z$):IFSTTHEN900
  93. 210 PRINT#4,"[200][207][210][201][218][207][206][212][193][204] [211][212][193][210][212] [207][198] [212][197][216][212] [199][210][201][196] =";A
  94. 215 GET#8,B$:GET#8,A$:A=ASC(B$+Z$)+256*ASC(A$+Z$):IFSTTHEN900
  95. 220 PRINT#4:PRINT#4,"[214][197][210][212][201][195][193][204] [211][212][193][210][212] [207][198] [212][197][216][212] [199][210][201][196] =";A
  96. 225 GET#8,B$:GET#8,A$:A=ASC(B$+Z$)+256*ASC(A$+Z$):IFSTTHEN900
  97. 230 PRINT#4:PRINT#4,"[212][197][216][212] [199][210][201][196] [211][201][218][197] =";A;
  98. 235 GET#8,B$:GET#8,A$:A=ASC(B$+Z$)+256*ASC(A$+Z$):IFSTTHEN900
  99. 240 PRINT#4,"[216]";A
  100. 245 GET#8,A$:A=ASC(A$+Z$):IFSTTHEN900
  101. 250 PRINT#4:PRINT#4,"[195][200][193][210][193][195][212][197][210] [195][197][204][204] [211][201][218][197] =";A;
  102. 255 GET#8,A$:A=ASC(A$+Z$):IFSTTHEN900
  103. 260 PRINT#4,"[216]";A
  104. 265 GET#8,A$:A=ASC(A$+Z$):IFSTTHEN900
  105. 267 PRINT#4:IFA<KTHEN270
  106. 268 PRINT#4,"[212][197][216][212] [198][207][210][197][199][210][207][213][206][196][160][195][207][204][207][210][160][197][210][210][207][210]":GOTO275
  107. 270 PRINT#4,"[212][197][216][212] [198][207][210][197][199][210][207][213][206][196][160][195][207][204][207][210][160][201][206][196][197][216] =";A
  108. 275 GET#8,A$:A=ASC(A$+Z$):IFSTTHEN900
  109. 277 PRINT#4:IFA<KTHEN280
  110. 278 PRINT#4,"[212][197][216][212] [194][193][195][203][199][210][207][213][206][196][160][195][207][204][207][210][160][197][210][210][207][210]":GOTO285
  111. 280 PRINT#4,"[212][197][216][212] [194][193][195][203][199][210][207][213][206][196][160][195][207][204][207][210][160][201][206][196][197][216] =";A
  112. 285 SYS49178:IFSTTHEN900
  113. 290 M=14:GOTO380
  114. 300 SYS49178:IFSTTHEN900
  115. 302 IFPEEK(780)<>4THENPRINT#4,"[207][206][197] [205][207][205][197][206][212] [208][204][197][193][211][197]...":M=1:GOTO155
  116. 303 GET#8,A$:A=ASC(A$+Z$):IFSTTHEN900
  117. 305 PRINT#4:IFAAND2THENPRINT#4,"[213][211][197][210] [201][206][208][213][212] [198][204][193][199] [211][197][212]":GOTO315
  118. 310 PRINT#4,"[213][211][197][210] [201][206][208][213][212] [198][204][193][199] [195][204][197][193][210]"
  119. 315 IFAAND1THENW=1
  120. 320 A=(AAND28)/4:PRINT#4:PRINT#4,"[196][201][211][208][207][211][193][204] [201][206][211][212][210][213][195][212][201][207][206][211]:":PRINT#4
  121. 325 IFA=1THENPRINT#4,"[206][207] [195][200][193][206][199][197]":GOTO345
  122. 330 IFA=2THENPRINT#4,"[195][200][193][206][199][197] [212][207] [194][193][195][203][199][210][207][213][206][196]":GOTO345
  123. 335 IFA=3THENPRINT#4,"[195][200][193][206][199][197] [212][207] [208][210][197][214][201][207][213][211]":GOTO345
  124. 340 PRINT#4,"[206][207] [201][206][211][212][210][213][195][212][201][207][206][211]"
  125. 345 GET#8,B$:GET#8,A$:A=ASC(B$+Z$)+256*ASC(A$+Z$):IFSTTHEN900
  126. 350 PRINT#4:PRINT#4:IFATHENPRINT#4,"[196][197][204][193][217] =";A/100;"[211][197][195][207][206][196][211]":GOTO360
  127. 355 PRINT#4,"[206][207] [196][197][204][193][217]"
  128. 360 GET#8,A$:A=ASC(A$+Z$):IFSTTHEN900
  129. 365 IFWTHENPRINT#4:PRINT#4,"[212][210][193][206][211][208][193][210][197][206][195][217] [201][206][196][197][216] =";A
  130. 370 SYS49178:IFSTTHEN900
  131. 375 M=6:PRINT#4:IFPEEK(780)THENPRINT#4,"[199][210][193][208][200][201][195] [195][207][206][212][210][207][204] [194][204][207][195][203] [197][210][210][207][210]"
  132. 380 IFPEEK(780)THENPRINT#4:PRINT#4,"[207][206][197] [205][207][205][197][206][212] [208][204][197][193][211][197]...":GOTO155
  133. 385 PRINT#4,M;"[196][193][212][193] [194][217][212][197][211]":GOTO70
  134. 400 U=ST:PRINT#4:PRINT#4,"[199][201][198] [212][197][210][205][201][206][193][212][207][210]":PRINT#4
  135. 410 IFUTHEN425
  136. 415 GET#8,A$:IFSTTHEN425
  137. 420 GOTO415
  138. 425 PRINT#4,"          *** [197][206][196] [207][198] [198][201][204][197] ***"
  139. 430 GOTO910
  140. 500 DATA162,8,32,198,255,32,40,192
  141. 510 DATA208,13,170,240,10,32,40,192
  142. 520 DATA208,5,202,208,248,240,238
  143. 530 DATA76,204,255,162,8,32,198,255
  144. 540 DATA32,40,192,72,32,204,255,104
  145. 550 DATA96,32,228,255,72,138,72,165
  146. 560 DATA251,164,252,32,162,187,169
  147. 570 DATA232,160,191,32,103,184,166
  148. 580 DATA251,164,252,32,212,187,104
  149. 590 DATA170,104,164,144,96,162,8
  150. 600 DATA32,198,255,165,251,164,252
  151. 610 DATA32,162,187,32,155,188,166
  152. 620 DATA101,32,228,255,202,208,250
  153. 630 DATA164,100,240,9,32,228,255
  154. 640 DATA202,208,250,136,208,247,76
  155. 650 DATA204,255,24,165,45,105,2,133
  156. 660 DATA251,165,46,105,0,133,252,96
  157. 800 IFQTHENRETURN
  158. 810 PRINT"[[208][210][197][211][211] [210][197][212][213][210][206]][146]";
  159. 815 POKE56334,1
  160. 820 GETX$:IFX$=M$THENPRINT"[147]";:POKE56334,.:RETURN
  161. 830 GOTO820
  162. 900 PRINT#4:PRINT#4,"[208][210][197][205][193][212][213][210][197] [197][206][196] [207][198] [198][201][204][197]"
  163. 910 PRINT#4:CLOSE4:CLOSE8:POKE56334,1:END
  164.